From a77ae2529f104486ad9685604cb6339f903c0d3e Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 22 Jun 2007 01:03:24 +0000 Subject: [PATCH] (math-read-number-simple): New function. --- lisp/calc/calc.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 6f37568ece4..96f93e0467b 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -3423,6 +3423,24 @@ See calc-keypad for details." ;; Syntax error! (t nil)))) +;;; Parse a very simple number, keeping all digits. +(defun math-read-number-simple (s) + (cond + ;; Integer + ((string-match "^[0-9]+$" s) + (cons 'bigpos (math-read-bignum s))) + ;; Minus sign + ((string-match "^-[0-9]+$" s) + (cons 'bigneg (math-read-bignum (substring s 1)))) + ;; Decimal point + ((string-match "^\\(-?[0-9]*\\)\\.\\([0-9]*\\)$" s) + (let ((int (math-match-substring s 1)) + (frac (math-match-substring s 2))) + (list 'float (math-read-number-simple (concat int frac)) + (- (length frac))))) + ;; Syntax error! + (t nil))) + (defun math-match-substring (s n) (if (match-beginning n) (substring s (match-beginning n) (match-end n)) -- 2.30.2